home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Biz / swood / FW_Scripts.lha / FW_Scripts / Adjust_VGA.rexx next >
OS/2 REXX Batch file  |  2004-02-28  |  1KB  |  62 lines
  1. /* ================================================================ */
  2. /* Adjusts width/height in VGA graphics to obtain correct printing. */
  3. /* FinalWriter macro written by José Manuel Herrero de Aldana.      */
  4. /*                           Spain        jmherreros@cop.es         */
  5. /* $VER: VGA_Adjust 2.0 eng. (26/1/97)                              */
  6. /* ================================================================ */
  7.  
  8. Options Results
  9.  
  10.  
  11. ShowMessage 1 0 '"Select type of  transformation, please" "" "" "   Cancel      " "     Shorter     " "     Wider     "'
  12. respuesta = Result
  13.  
  14.  
  15.  
  16.    GetDocItemPrefs Decimal
  17.    Decimales = Result
  18.    DocItemPrefs Decimal period
  19.  
  20.  
  21. I = 0
  22. X = 0
  23.  
  24. FirstObject Selected
  25.  
  26. If ( Result = 0 ) Then Call Fin
  27.  
  28.  
  29. Do While Result ~= 0; I = I + 1
  30.    Objects.I = Result
  31.    NextObject Objects.I Selected
  32.    End
  33.  
  34. Do While X < I; X = X + 1
  35.    GetObjectType Objects.X
  36.    ObjType = Result
  37.    GetObjectCoords Objects.X
  38.    Coords = Result
  39.    Parse Var Coords Page x1 y1 x2 y2
  40.    If ObjType = 1 Then
  41.     Do
  42.      If respuesta == 1 Then Call Fin   
  43.      If respuesta == 2 Then y2=y2*0.8475
  44.      If respuesta == 3 Then x2=x2*1.18
  45.      SetObjectCoords Objects.X Page x1 y1 x2 y2
  46.     End
  47. End
  48.  
  49. X = 0
  50. Do While X < I; X = X + 1
  51.    SelectObject Objects.X Multiple
  52.    End
  53.  
  54. Redraw
  55.  
  56. Call Fin
  57.  
  58. Proc Fin:   
  59. DocItemPrefs Decimal Decimales
  60. Exit
  61.  
  62.